DebugUtilityDefs.mesa 2-Sep~78 15:32:14 Page 



-- DebugUtil ityDef s .nirvsa 
-- Edited by: 

Johns,., August 29, 1978 9:33 AM 

Sand, May 24, 1978 10:11 AM 

Barb-j July 18, 1978 9:25 AM 

DIRECTORY 

AllocDefs: FROM "a 1 locdefs" USING [SwappingProcedure] , 
AltoDefs: FROM "altodefs" USING [BYTE], 
ControlDefs: FROM "controldefs" USING [ 

BytePC, FrameHandle, GFTIndex, GlobalFrameHandle, ProcDesc, SVPointer], 
CoreSwapDefs: FROM "coreswapdef s" USING [SVPointer, SwapReason], 
DebugBreakptDefs: FROM "debugbreakptdefs" USING [CodeObject] , 
DebuggerDefs: FROM "debuggerdef s" USING [LA], 

ProcessDefs: FROM "processdef s" USING [Priority, ProcessHandle] , 
SegmentDefs: FROM "segmentdef s" USING [ 

AccessOptions, FileHandle, FileSegmentHandle, PageCount, PageNumber], 
StringDefs: FROM "stringdef s" USING [Substring]; 

DEFINITIONS FROM ControlDefs, SegmentDefs; 

DebugUtilityDefs: DEFINITIONS SHARES ProcessDefs = 

BEGIN 

AddCommand: PROCEDURE [tag: STRING, proc: PROCEDURE]; 
AllocOnDrum: PROCEDURE [useg: FileSegmentHandle] 

RETURNS [POINTER]; 
Bound: PROCEDURE [UNSPECIFIED] RETURNS [BOOLEAN]; 
CacheNewFile: PROCEDURE [name: STRING, access: AccessOptions] 

RETURNS [file: FileHandle]; 
CheckFrame: PROCEDURE [f: FrameHandle] RETURNS [BOOLEAN]; 
CodeFile: PROCEDURE [f: Global FrameHandle] RETURNS [FileHandle]; 
CoreSwap: PROCEDURE [why: CoreSwapDefs .SwapReason] ; 
DebugUtilitiesInit: PROCEDURE; 

FileName: PROCEDURE [name: STRING, file: FileHandle]; 
FindOriginal : PROCEDURE [copy: GlobalFrameHandle] 

RETURNS [GlobalFrameHandle]; 
FindSymbolTable: PROCEDURE [name: STRING] 

RETURNS [file: FileHandle, base: PageNumber, pages: PageCount]; 
FlushCodeSegmentCache: PROCEDURE; 
FlushCoreCache: Al locDef s .SwappingProcedure; 
FreeOnDrum: PROCEDURE [f: GlobalFrameHandle]; 
GetCurrentStateFromPSB: PROCEDURE RETURNS [SVPointer]; 
GetProcessPriority : PROCEDURE [psb: ProcessDefs . ProcessHandle] 

RETURNS [ProcessDefs. Priority]; 
GFtoCode: PROCEDURE [f: GlobalFrameHandle] 

RETURNS [DebugBreakptDefs. CodeObject]; 
InitializeDrum: PROCEDURE; 
Inval idateFileCache: PROCEDURE; 

LengthenPointer: PROCEDURE [POINTER] RETURNS [LONG POINTER]; 
LoadNew: PROCEDURE [file: STRING] RETURNS [GlobalFrameHandle]; 
LongREAD: PROCEDURE [a: LONG POINTER] RETURNS [UNSPECIFIED]; 
LongWRITE: PROCEDURE [a: LONG POINTER, v: UNSPECIFIED]; 
MakeProcedureDescriptor: PROCEDURE [ep: CARDINAL, gframe: GlobalFrameHandle] 

RETURNS [pd: ProcDesc]; 
MapUserSegment: PROCEDURE [useg: FileSegmentHandle] 

RETURNS [seg: FileSegmentHandle]; 
AREAD, MREAD, SREAD: PROCEDURE [a: UNSPECIFIED] RETURNS [UNSPECIFIED]; 
ReadCodeByte: PROCEDURE [gframe: GlobalFrameHandle, pc: BytePC] 

RFTURNS [AltoDefs. BYTE]; 
ReadGlobalGFI: PROCEDURE [f: GlobalFrameHandle] RETURNS [GFTIndex]; 
RemoveFromDrum: PROCEDURE [useg: FileSegmentHandle]; 
ReverseEnumerateGlobalFrames: PROCEDURE [ 

proc: PROCEDURE [GlobalFrameHandle] RETURNS [BOOLEAN]] 

RETURNS [GlobalFrameHandle]; 
UserCall: PROCEDURE [CoreSwapDefs .SVPointer] 

RETURNS [p: CoreSwapDefs .SVPointer] ; 
UserProc: PROCEDURE; 

UserStart: PROCEDURE [GlobalFrameHandle]; 
UserWriteString: PROCEDURE [STRING]; 
UserWriteSubString: PROCEDURE [StringDefs .Substring] ; 
UserWritetongString: PROCEDURE [LONG STRING]; 
UserWri teLongSubStr ing : PROCEDURE [ 

Is: LONG STRING, offset, length: CARDINAL]; 
ValidatePSB: PROCEDURE [psb: ProcessDefs . ProcessHandle] RETURNS [BOOLEAN]; 
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ValidGlobalFrame: PROCEDURE [Global FrameHandlo] RETURNS [BOOLEAN]; 
VirtualGlobalFrame: PROCEDURE [GlobalFrameHandle] 

RETURNS [GlobalFrameHandle]; 
WriteCodeByte: PROCEDURE [gframe: GlobalFrameHandle, pc: BytePC, 

b: AltoDefs.BYTE]; 
AWRITE, MWRITE, SWRITE: PROCEDURE [a, v: UNSPECIFIED]; 

--signals 

AmbiguousTag: SIGNAL [oldTag: STRING]; 

DebuggerError: SIGNAL; 

InitDebugger: SIGNAL [sp: CoreSwapDefs.SVPointer, message: STRING]; 

InitMapCleanup: SIGNAL; 

InitUCSHandler: SIGNAL [sp: CoreSwapDefs.SVPointer, signal: UNSPECIFIED]; 

InvalidAddress: SIGNAL [a: DebuggerDef s. LA]; 

KillSession: SIGNAL; 

LoadStatelnvalid: SIGNAL; 

NonExistentMemoryPage: SIGNAL [page: CARDINAL]; 

NoUserProcsLoaded: SIGNAL; 

RemoteSegment: SIGNAL [seg: FileSegmentHandle] ; 

END, .. 



